home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib10.dsk / NUMPAD DEMO.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  1.0 KB  |  24 lines
  1. 1  REM  ******************************
  2. 2  REM  *   SUPER NUMERIC KEYPAD     *
  3. 3  REM  *          DEMO              *
  4. 4  REM  *      BY ALAN B. COHEN      *
  5. 5  REM  *     COPYRIGHT (C) 1982     *
  6. 6  REM  *     BY MICRO-SPARC INC     *
  7. 7  REM  *     LINCOLN, MA. 01773     *
  8. 8  REM  *     ALL RIGHTS RESERVED    *
  9. 9  REM  ******************************
  10. 10  REM  NUMPAD DEMO
  11. 15  REM  IN APPLESOFT
  12. 20  TEXT : HOME 
  13. 25  PRINT  CHR$(4);"BLOAD NUMPAD"
  14. 30  PRINT "PLEASE ENTER TWO NUMBERS, SEPARATED": PRINT "BY A <CR>.  THE KEYPAD IS ON."
  15. 40  CALL 768: INPUT N1$: INPUT N2$: CALL 789
  16. 50 N1 =  VAL(N1$):N2 =  VAL(N2$)
  17. 65  PRINT "KEYPAD OFF"
  18. 70  VTAB 10: PRINT "THANK YOU.  THE NUMBERS YOU ENTERED": PRINT "ARE: "
  19. 80  PRINT "AS STRINGS ";N1$;" AND ";N2$
  20. 90  PRINT "AS NUMBERS ";N1;" AND ";N2
  21. 100  PRINT "THE SUM OF THESE TWO NUMBERS IS ": PRINT N1 +N2
  22. 110  PRINT "THE TWO STRINGS APPENDED ARE ": PRINT N1$ +N2$
  23. 120  PRINT "YOU DON'T HAVE TO INPUT AS STRINGS,": PRINT "THIS WAS JUST TO SHOW YOU IT COULD": PRINT "BE DONE.  BYE."
  24. 130  END